library(xlsx)

setwd("H://OneDrive//文档//2-任博//降雨") #工作文件夹

data <- read.xlsx("新建 XLSX 工作表.xlsx", sheetName = "Sheet2" , encoding = "UTF-8") #读数据

data$Water.treatments <- as.factor(data$Water.treatments)

summary(aov(cbind(Length, Nodes, Diameter, Root.shoot, Biomass) ~ Water.treatments, data = data))

